home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / PROG_TOO / C023A.ZIP / PART1 / PLOT.C < prev    next >
Text File  |  1990-01-31  |  741b  |  34 lines
  1. #asm
  2. ;
  3. ;   PLOT ROUTINES FOR SMALL C
  4. ;
  5. ;   This package includes the following routines:
  6. ;
  7. ;   plot( x, y, action )                         plot at x,y
  8. ;   cursor( row, column )                        position cursor
  9. ;   viewport( toprow, leftcol, height, width )    set viewport
  10. ;   line( x1, y1, x2, y2, action )                draw line (x1,y1) -> (x2,y2)
  11. ;   box( x1, y1, x2, y2, action )                draw box: (x1,y1) is top left
  12. ;                                                  (x2,y2) is bottom right
  13. ;
  14. ;
  15.     global qplot
  16. qplot:    LD    HL,7    ;put SP+7 in HL
  17.     ADD    HL,SP
  18.     LD    D,(HL)    ;fetch msb of x
  19.     DEC    HL
  20.     LD    E,(HL)    ;fetch lsb of x
  21.     DEC    HL
  22.     DEC    HL
  23.     LD    A,(HL)    ;fetch y to A
  24.     CPL
  25.     DEC    HL
  26.     DEC    HL
  27.     LD    H,(HL)
  28.     LD    L,A        ;put -y in L
  29.     LD    C,76    ;call plot RSX
  30.     JP    5        ;no need to sign extend
  31. ;
  32. ;
  33. #endasm
  34.